##############################################################################
###+----------+###############################################################
#+-| HEADER() |---------------------------------------------------------+#####
#| +----------+ Returns the size of the header for the current database |#####
#+----------------------------------------------------------------------+#####
##############################################################################
##############################################################################
#+--| Summary |------------------+############################################
#|     #INCLUDE database.hdr     |############################################
#+-------------------------------+############################################
##############################################################################
##############################################################################
#+--| Syntax |----------------------------+###################################
#|     FUNCTION LONG header PROTOTYPE     |###################################
#+----------------------------------------+###################################
##############################################################################
##############################################################################
#################+---| Description |-----------------------+##################
#################| The header() functions returns the size |##################
#################| of the header for the current database. |##################
#################+-----------------------------------------+##################
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Show the size of the current database file.         |#########
#########|                                                          |#########
#########| total_size = header() + recno() * recsize()              |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    The database header stores 32 bytes of information  |#########
#########| *    per field.  It also has a 32 byte "descriptor".     |#########
#########| *    Therefore, the header size devided by 32 equals     |#########
#########| *    the max number of fields in the database.           |#########
#########| *    (NOTE: Some fields may have been removed and        |#########
#########| *    are not active.)                                    |#########
#########|                                                          |#########
#########| ? "Fields in header = ", (header() /32 ) -1              |#########
#########+----------------------------------------------------------+#########
##############################################################################